

10 LET Lan_Area = 8

20 LET text = "Set Language Area"
30 SYSTEM ScreenString(30,50,text)

100 FOREIGN SetLanguageArea(Lan_Area)

110 SYSTEM delay_us(2000000)
120 LET string3 = "Reset success(O)"
130 LET I=0
140 IF I<=50   THEN 500   ELSE 900
500 SYSTEM ScreenString(30,50,string3)
510 SYSTEM delay_us(100000)
520 LET I=I+1
530 GOTO 140

900 FOREIGN result = PowerOff(1,0)
1000 END
RUN